10 GOSUB285
15 B=198
20 BL$="                                       ":GOSUB 25:GOTO35
25 OPEN15,8,15,"I0":CLOSE15:OPEN2,8,2,"$":FORX=0TO156:GET#2,A$:NEXT
30 GET#2,A$:SI=VAL(A$):CLOSE2:RETURN
35 POKE53281,.:POKE53280,5
40 :
45 GOSUB 500
46 IFX=1 THEN PA=4:SA=7:C8%=-1:GOTO80
47 IFX=2 THEN PA=6:SA=0:GOTO80
48 IFX=3 THEN PA=4:SA=7:GOTO80
50 IFX=5 THEN 600
54 :
55 PRINT"[147][154]             [195][213][211][212][207][205] [208][210][201][206][212][197][210]"
56 PRINT"             [152][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
60 PRINT"[208]LEASE ENTER THE CORRECT INFORMATION FORTHE PRINTER YOU ARE USING."
65 PRINT"[155]     [207][208][197][206] # , [208][210][201][205][193][210][217] , [211][197][195][207][206][196][193][210][217]
70 [153]"CONT(null)LEASE ENTER THE (null)(null)RIGHT$(null)ATN(null)(null)CLOSEADDRESS :";:[141]700:PA[178][197](A$):
75 [153]"CONTCLRENTER THE (null)VALLEN(null)(null)STR$ATN(null)(null) ADDRESS :"; :[141]700:SA[178][197](A$)
80 [151]53280,6:[151]53281,6:[153]"LOAD             LEN(null)(null)(null)(null)(null) (null)(null)RIGHT$(null)(null)VAL(null)"
81 [153]"             PRINT#TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
85 :
86 [153]"           CONT (null)(null)VAL(null) # ,PRINT#"PA"CONT,PRINT#"SA
90 [153]"          PRINT(null)RIMARY ADDRESS OFPRINT#"PA"CMDCONT."
95 [153]"         DEF(null)ECONDARY ADDRESS OFPRINT#"SA"CMDCONT."
100 :
105 [153]"            RIGHT$S (null)HIS LENORRECT?"
110 [153]"           CONT(null)OPEN)CONTESLIST, CONT(null)OPEN)CONTO LIST(null)(null) CONT(null)OPEN)CONTUIT":[151]198,.
115 [161]A$:[139]A$[178]""[167]115
120 [139]A$[179][177]"Y"[175]A$[179][177]"N"[175]A$[179][177]"Q"[167]115
125 :
130 [139]A$[178]"Q"[167]245
135 [139]A$[178]"N"[167]40
140 [137]216
145 :
150 [153]"":[129]X[178]0[164]20:[153]BL$:[130]
155 [153]"    (null)LEASE INSERT (null)RIGHT$STR$VAL"AG"OF SYS(null)(null)ATNSTR$(null)(null)ATN(null)"
160 [153]"     IN THE DRIVE AND PRESS (null)VAL(null)(null)(null)(null)"
165 [153]"     WHEN YOU ARE READY TO CONTINUE."
170 [153]"          ((null)RESS (null) TO (null)UIT)"
175 [161]A$:[139]A$[178]"Q"[167]280
176 [139]A$[179][177][199](13) [167] 175
180 [141] 25:[139]AG[178]SI[167]195
185 [153]"":[129]X[178]1[164]20:[153]BL$:[130]
190 [153]"(null)IDE"AG"NOT FOUND...":[129]DL[178]1[164]2000:[130]:[137]150
195 [141]325
200 [153]"   (null)RINT FILE IS NOW ON THIS SIDE"
205 [153]"            OF THE DISK."
210 [153]" (null)RESS (null)VAL(null)(null)(null)(null) WHEN READY TO CONTINUE."
211 [161]A$:[139]A$[179][177][199](13) [167] 211
215 [142]
216 [151]53280,6:[151]53281,6:[153]"LOAD"
217 [153]"   (null)OW A (null)VAL(null)(null) MESSAGE WILL BE SENT TO"
218 [153]"  YOUR PRINTER.  (null)ATN(null)VAL (null)(null)(null)VAL (null)LEFT$VALCLOSE(null)(null)RIGHT$(null)(null)VAL(null)"
219 [153]"      RIGHT$(null) (null)(null)-(null)RIGHT$(null)VAL ATN(null)STR$ (null)(null)(null)CHR$CHR$VALSTR$ RIGHT$(null)."
220 [153]" (null)RESS (null)VAL(null)(null)(null)(null) WHEN READY TO CONTINUE."
221 [161]A$:[139]A$[179][177][199](13) [167] 221
222 [159]15,PA,15:[160]15:[139]ST[179][177]0 [167] 231
223 [159]4,PA,SA:[152]4,[199](13)[199](13)[199](13)
224 [129]X[178]1[164]80:[152]4,".";:[130]:[152]4
225 [152]4,[199](13)[163]30)"(null)ELCOME (null)O (null)(null)ATNSTR$(null)(null)ATN(null)!":[152]4:[160]4
226 [153]"LOAD  STR$O YOU WHICH TO RETURN TO THE MENU?"
228 [161]A$:[139]A$[179][177]"Y"[175]A$[179][177]"N"[167]228
229 [139]A$[178]"Y" [167] 45
230 [139] A$[178]"N" [167] 239
231 [153]"LOAD SYS (null)HE (null)RINTER WAS (null)(null)(null) STR$VAL(null)VALLEN(null)VALSTR$.  (null)HIS"
232 [153]"  CAN BE FROM IT NOT BEING PLUGGED IN"
233 [153]"    OR AN INPROPER PRINTER SETUP."
234 [153]" (null)OULD YOU LIKE TO TRY THE (null)VAL(null)(null) AGAIN?"
235 [161]A$:[139]A$[178]""[167] 235
236 [139] A$[178]"Y"[167] 216
237 [139] A$[178]"N"[167] 226
238 [137] 235
239 [129]AG[178]1[164]3:[141]150:[130]AG
240 :
245 [153]"":[129]X[178]0[164]20:[153]BL$:[130]
250 [153]""
255 [153]"   (null)LEASE PLACE SIDE 3 OF SYS(null)(null)ATNSTR$(null)(null)ATN(null)"
260 [153]"   IN THE DRIVE AND PRESS (null)VAL(null)(null)(null)(null)."
265 [161]A$:[139]A$[179][177][199](13)[167]265
266 [151]53281,6:[151]53280,6
267 [153]"LOAD       (null)LEASE (null)AIT (null)HILE (null)OADING..."
268 [151]646,[194](53281)
270 [159]15,8,15,"R0:CUSTOM LS BOOT=CUSTOM LS BOOT":[132]15,ER:[160]15
275 [139]ER[179][177]63[167]245
280 [147]"CUSTOM LS BOOT",8
285 CR$[178][199](13)
290 [159]15,8,15
295 [159]3,8,4,"SETUP"
300 [132]3,D$(1),D$(2),D$(3),D$(4),D$(5),D$(6),D$(7)
305 [160]3
310 [160]15
315 PA[178][197](D$(4)):SA[178][197](D$(5))
320 [142]
325 [160]15:[159]15,8,15
330 D$(4)[178][202]([196](PA),2)
335 D$(5)[178][202]([196](SA),2)
340 [159]3,8,4,"SETUP":CR$[178][199](13)
345 [152]15,"P
"[199](0)"
";
350 [152]3,D$(1)CR$D$(2)CR$D$(3)CR$D$(4)CR$D$(5)CR$D$(6)CR$D$(7)CR$
355 [160]3
360 [160]15
365 [142]
370 [153]"ON  CONTATNRE YOU SURE YOU WANT TO QUIT? ((null)CONT/(null)CONT)":[151]198,.
375 A[178][194](203):[139]A[179][177]25[175]A[179][177]39[167]375
380 [139]A[178]39[167][153]"ON                                      ON":[142]
385 [137]245
500 [151]53281,241:[151]53280,254
501 [153]"LOAD"
502 [153]" STOPOR````````````````````````````````````^"
503 MM$[178]" (null)                                    (null)":[153]MM$
504 [153]" (null)    (null)HICH (null)RINTER PEEKEST STR$ESCRIBES    STOP(null)"
505 [153]" (null)       (null)HE (null)RINTER (null)OU (null)SE?         STOP(null)"
506 [129]A[178]1[164]15
507 [153]MM$
508 [130]
509 [153]" }   CLRuSE yOUR crsr CLRkEYS tO mOVE tHE   STOP}"
510 [153]" }  CONT selector box LISTWAITRND CLRAND PRESS return  STOP}"
511 [153]" }   LISTNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWWAITCOS                   STOP}"
512 [153]" /````````````````````````````````````EXP"
513 [153]"";
514 A$(1)[178]"  LEN(null)(null)(null)(null)STR$(null)(null)VAL 1525 (null)R LENOMMPATABLE  "
515 A$(2)[178]"         LEN(null)(null)(null)(null)STR$(null)(null)VAL 1520          "
516 A$(3)[178]"         LEN(null)(null)(null)(null)STR$(null)(null)VAL 1515          "
517 A$(4)[178]"          (null)(null)LEFT$VAL(null) (null)(null)RIGHT$(null)(null)VAL(null)          "
518 A$(5)[178]"           *  (null)(null)RIGHT$(null)  *            "
519 S$[178]   "                                   "
520 P$[178]""
521 [153]P$;:[129]X[178]1 [164] 5
522 [153]A$(X)[199](13)S$
523 [130]:X[178]1:[141]524:[137]527
524 PT$[178]"CONT"[170]A$(X)[170]"WAITLISTRND"
525 PT$[178]PT$[170][199](13)[170]"LISTLOGNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWWAITCOS"
526 [142]
527 [153]P$PT$
528 [161]A$:[139]A$[178]""[167]528
529 [139]A$[178]""[175]X[179]5 [167] A[178]1:[137] 533
530 [139]A$[178]"ON"[175]X[177]1 [167] A[178][171]1:[137] 533
531 [139]A$[178][199](13) [167] 538
532 [137] 528
533 [153]P$"STOP"A$(X)" "[199](13)S$
534 [139]A[178]1 [167] P$[178]P$[170]""
535 [139]A[179]1 [167] P$[178][200](P$,[195](P$)[171]2)
536 X[178]X[170]A:[141] 524
537 [137] 527
538 [142]
600 [153]""
601 [153]"                      PRINT#
602 PRINT" [196]O YOU WISH TO QUIT? [151] [146]
603 [153]"                      POKE WAIT
604 PRINT"       [217])ES [207]R [206])O    [151] [146]
605 [153]"                      POKE WAIT
607 PRINT"[151]                      [146]
608 [161]A$:[139]A$[178]""[167]608
610 [139]A$[178]"Y"[176]A$[178]"(null)"[167] [151]53280,6:[151]53281,6:[153]"LOAD":[137]245
611 [139]A$[178]"N"[176]A$[178]"(null)"[167] 45
612 [137] 608
700 A$[178]"":[129]X[178]1[164]3
701 [161]B$:[139]B$[178]""[167]701
702 [139]B$[178][199](20)[175]X[178]1[167]701
703 [139]B$[178][199](20)[167]X[178]X[171]1:[153]B$"TOCMD";:A$[178][200](A$,X[171]1):[137]701
704 [139]B$[178][199](13) [167] [153]" ":[142]
705 [139]B$[179]"0"[176]B$[177]"9"[167] 701
706 [139]X[178]2 [167] 701
710 A$[178]A$[170]B$:[153]B$"TOCMD";:[130]